home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / disk / cdrom / ATAPI.lha / Install-ATAPI < prev    next >
Text File  |  1995-04-11  |  2KB  |  70 lines
  1. ;$VER: Install-ATAPI 3.1 (11.04.95)
  2. ;Copyright ©1995 Elaborate Bytes, Oliver Kastl
  3.  
  4. ; Check the configuration
  5.  
  6. (onerror
  7.     (makeassign "ATAPI" (safe))
  8. )
  9.  
  10. (complete 0 )
  11.  
  12. (set @default-dest "")
  13.  
  14. (makeassign "ATAPI" "" ( safe) )
  15.  
  16. (working "\n\nLaunching the FindCD program to find "
  17.          "the Device and Unit of your CD-Rom..."
  18.          "\n\nYou may let the program scan for CD-Roms by clicking \"SCAN\"."
  19.          "\n\nChoose the device and unit and click \"USE\"!")
  20.  
  21. (set #Product ( run "ATAPI:FindCD DEVNAME=(tandemat#?|#?atapi#?) PATH=ATAPI:Devs" ( safe ) ) )
  22.  
  23. (if ( NOT (= #Product 0) )
  24.     (
  25.     (abort "\nCould not find your CDROM hardware!"
  26.              "\n\nYou must select device and unit within the FindCD program "
  27.              "and click the \"USE\" gadget!" 
  28.           "\n\nYou may let the program scan for CD-Roms by clicking \"SCAN\"."
  29.              "\n\nPlease check your hardware installation and try again! " )
  30.     )
  31. )
  32.  
  33.  
  34. ( set #CDROM_Device (getenv "CDROM_Device" ))
  35.  
  36. (complete 50 )
  37.  
  38. ( set #SourcePath (tackon "ATAPI:devs" #CDROM_Device))
  39.  
  40. (if (NOT (exists #SourcePath ))
  41.     (
  42.     (abort "\n\n"
  43.              "The " #CDROM_Device " is not present on the installation disk!" )
  44.     )
  45. )
  46.  
  47. (copylib
  48.     (prompt "This will copy the " #CDROM_Device " to your DEVS: directory.")
  49.     (help "This will copy the " #CDROM_Device " to your DEVS: directory.")
  50.     (source #SourcePath)
  51.     (confirm)
  52.     (dest "DEVS:")
  53. )
  54.  
  55. (copylib
  56.     (prompt "This will copy the SetAtapiSpeed program to your C: directory.")
  57.     (help "This will copy the SetAtapiSpeed program to your C: directory.")
  58.     (source "ATAPI:C/SetAtapiSpeed")
  59.     (confirm)
  60.     (dest "C:")
  61. )
  62.  
  63.  
  64. (makeassign "ATAPI" (safe))
  65.  
  66. (complete 100 )
  67.  
  68. (set @default-dest "DEVS:")
  69.  
  70.